unit ConfiguraCaixa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DMCaixa, Funcoes, CadFormasPag,
  CadOperadores, DmVariaveis, FuncoesEpson, FuncoesUrano, FuncoesSweda;

type
  TFrmConfiguraCaixa = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmConfiguraCaixa: TFrmConfiguraCaixa;

implementation

{$R *.dfm}

procedure TFrmConfiguraCaixa.Button1Click(Sender: TObject);
begin
  if ModEcf = 'B' then begin
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '01', 'integer',
                   'DescricaoMeioPagamento'  , 'Cheque a vista', 'string',
                   'NomeMeioPagamento'       , 'Cheque a vista', 'string',
                   'PermiteVinculado'        , 'f'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '02', 'integer',
                   'DescricaoMeioPagamento'  , 'Cheque pre', 'string',
                   'NomeMeioPagamento'       , 'Cheque pre', 'string',
                   'PermiteVinculado'        , 'f'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '03', 'integer',
                   'DescricaoMeioPagamento'  , 'Cartao'    , 'string',
                   'NomeMeioPagamento'       , 'Cartao'    , 'string',
                   'PermiteVinculado'        , 't'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '04', 'integer',
                   'DescricaoMeioPagamento'  , 'Convenio'  , 'string',
                   'NomeMeioPagamento'       , 'Convenio'  , 'string',
                   'PermiteVinculado'        , 'f'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '05', 'integer',
                   'DescricaoMeioPagamento'  , 'A prazo'   , 'string',
                   'NomeMeioPagamento'       , 'A prazo'   , 'string',
                   'PermiteVinculado'        , 't'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '06', 'string',
                   'DescricaoMeioPagamento'  , 'Financeira', 'string',
                   'NomeMeioPagamento'       , 'Financeira', 'string',
                   'PermiteVinculado'        , 'f'      , 'boolean'] );
     Urano_Logger( Urano_Porta, 'DefineMeioPagamento',
                  ['CodMeioPagamentoProgram' , '07'           , 'integer',
                   'DescricaoMeioPagamento'  , 'Ch eletronico', 'string',
                   'NomeMeioPagamento'       , 'Ch eletronico', 'string',
                   'PermiteVinculado'        , 't'            , 'boolean'] );
  end
  else if ModEcf = 'D' then begin
     EPSON_Config_Forma_Pagamento( true, '2', 'Cheque a vista' );
     EPSON_Config_Forma_Pagamento( true, '3', 'Cheque pre' );
     EPSON_Config_Forma_Pagamento( true, '4', 'Cartao' );
     EPSON_Config_Forma_Pagamento( true, '5', 'Convenio' );
     EPSON_Config_Forma_Pagamento( true, '6', 'A Prazo'  );
     EPSON_Config_Forma_Pagamento( true, '7', 'Financeira' );
     EPSON_Config_Forma_Pagamento( true, '8', 'Ch Eletronico' );
     EPSON_Config_Forma_Pagamento( true, '9', 'Cartao Vin' );
  end
  else if ModEcf = 'F' then begin  //Sweda
     ECF_ProgramaFormaPagamentoMFD('Cheque a vista', '1');
     ECF_ProgramaFormaPagamentoMFD('Cheque pre', '1');
     ECF_ProgramaFormaPagamentoMFD('Cartao', '1');
     ECF_ProgramaFormaPagamentoMFD('Convenio', '1');
     ECF_ProgramaFormaPagamentoMFD('A Prazo', '1');
     ECF_ProgramaFormaPagamentoMFD('Financeira', '1');
     ECF_ProgramaFormaPagamentoMFD('Ch Eletronico', '1');
  end;
end;

procedure TFrmConfiguraCaixa.Button2Click(Sender: TObject);
begin
  FrmConfiguraCaixa.Close;
end;

procedure TFrmConfiguraCaixa.Button3Click(Sender: TObject);
begin
  FrmCadFormasPag := TFrmCadFormasPag.create(self);
  FrmCadFormasPag.ShowModal;
end;

procedure TFrmConfiguraCaixa.Button4Click(Sender: TObject);
begin
  FrmCadOperadores := TFrmCadOperadores.create(self);
  FrmCadOperadores.ShowModal;
end;

end.
